home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / arc / xFX.lha / xfx / Install < prev    next >
Encoding:
Text File  |  1997-08-29  |  2.7 KB  |  138 lines
  1.  
  2.  
  3.  
  4. ;               *******************************************
  5. ;               ****                                   ****
  6. ;               ****                xFX                ****
  7. ;               **** Multilanguage Installation Script ****
  8. ;               ****    © 1997, Alessandro Pedretti    ****
  9. ;               ****                                   ****
  10. ;               *******************************************
  11.  
  12.  
  13. ;           $VER:xFX_Install 1.0 (27.7.97) Alessandro Pedretti
  14.  
  15.  
  16.  
  17. ;
  18. ; Seleziona il linguaggio (default: inglese)
  19. ;
  20.  
  21. (set #DefLang        0)
  22. (set #DefDoc        0)
  23. (if (= @language "italiano")
  24.   (set #DefLang        1)
  25. )
  26. (if (= @language "deutsch")
  27.   (set #DefLang        2)
  28. )
  29.  
  30. (select #DefLang
  31.  
  32. ; Inglese
  33.  
  34.   ((set #DefDoc        0)
  35.    (set #ARexxTxt    "Do you want install ARexx scripts ?")
  36.    (set #DirTxt        "Select the directory where the xFX drawer will be created.")
  37.    (set #LangTxt    "Please select your preferred language documentation")
  38.    (set #LangHelpTxt    "You must specify your language.")
  39.   )
  40.  
  41. ; Italiano
  42.  
  43.   ((set #DefDoc        1)
  44.    (set #ARexxTxt    "Vuoi installare gli scripts ARexx ?")
  45.    (set #DirTxt        "Selezionare la directory dove verrà creato il cassetto xFX.")
  46.    (set #LangTxt    "Selezionare il linguaggio per la documentazione")
  47.    (set #LangHelpTxt    "E' necessario specificare un linguaggio.")
  48.   )
  49.  
  50. ; Tedesco
  51.  
  52.   ((set #DefDoc        0)
  53.    (set #ARexxTxt    "Wollen Sie die ARexx Scripts installiren ?")
  54.    (set #DirTxt        "Bitte wählen Sie einen Platz für xFX. Ein Verzeichnis namens 'xFX' wird dort automatisch erzeugt.")
  55.    (set #LangTxt    "Bitte wählen Sie die Sprache für die Dokumentation aus.")
  56.    (set #LangHelpTxt    "Sie wählen die Sprache für die Dokumentation aus.")
  57.   )
  58. )
  59.  
  60.  
  61. ;
  62. ; Seleziona la directory di xFX.
  63. ;
  64.  
  65. (complete 20)
  66. (set xFXDir
  67.   (askdir
  68.     (prompt #DirTxt)
  69.     (help @askdir-help)
  70.     (default "SYS:")
  71.     (newpath)
  72.   )
  73. )
  74. (set xFXDir(tackon xFXDir "xFX"))
  75. (set @default-dest xFXDir)
  76.  
  77.  
  78. ;
  79. ; Linguaggio della documentazione
  80. ;
  81.  
  82. (complete 40)
  83. (set DocLang
  84.   (select 
  85.     (askchoice
  86.       (prompt #LangTxt)
  87.       (help #LangTxtHelp)
  88.       (choices "English" "Italiano")
  89.       (default #DefDoc)
  90.     )
  91.     "xFX-Eng.guide" "xFX-Ita.guide"
  92.   )
  93. )
  94. (set DocLang (cat "Docs/" DocLang))
  95.  
  96. ;
  97. ; Copia i files
  98. ;
  99.  
  100. (complete 60)
  101.  
  102. (copyfiles
  103.   (source "")
  104.   (help    @copyfiles-help)
  105.   (infos)
  106.   (dest    @default-dest)
  107.   (choices "xFX"
  108.            "Docs/GuiX_Preview"
  109.   )
  110. )
  111.  
  112. (complete 70)
  113.  
  114. (copyfiles
  115.   (source DocLang)
  116.   (help    @copyfiles-help)
  117.   (infos)
  118.   (dest    @default-dest)
  119.   (newname "xFX.guide")
  120. )
  121.  
  122. ;
  123. ; Scripts ARexx
  124. ;
  125.  
  126. (complete 80)
  127. (if (askbool (prompt #ARexxTxt) (help @askbool-help))
  128.   (copyfiles
  129.     (source "")
  130.     (help @copyfiles-help)
  131.     (infos)
  132.     (dest @default-dest)
  133.     (choices "ARexx")
  134.   )
  135. )
  136.  
  137. (complete 100)
  138.